BBS in a Box 2/BBS in a box - Trilogy II.iso/Files/Hyper/F/Friends/zip codes/stack.txt

Text File | 1987-12-27 | 5.1 KB | 188 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2801
-- card count: 40
-- first card id: 6801
-- list block id: 2159
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 12416 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  global gstate, gcity, gzip
  push recent card
  -- answer "state=" & gstate & ", gcity =" & gcity & ",gzip =" & gzip -- with "OK"
  if gcity ≠ empty then
    if gstate = empty then
      Findstate
    else
      Findzip
    end if
    -- answer "gstate=" & gstate & ", gcity =" & gcity & ",gzip =" -- & gzip with "OK"
    pop card
  end if
end openStack
on Findstate
  global gstate, gcity, gzip
  find gcity in field locations
  if the result is not empty then
    Newcity
  else
    put field region into statelist
    put false into allover
    get name of card
    put it into firstid
    repeat until allover
      find gcity in field locations
      get name of card
      put (it = firstid) into allover
      if not allover then
        put "," & field region after statelist
      end if
    end repeat
    if "," is in statelist then
      ask gcity && "is in multiple states. Please choose one" with statelist
      put it into gstate
      if not (gstate is in statelist) then
        Newzip true
      end if
    else
      ask "Is " & statelist & " the right state?" with statelist
      put it into gstate
      if gstate = statelist then
      else
        Newzip true
      end if
    end if
  end if
  --
  -- find gcity in field locations
  -- if the result is not empty then
  -- Newcity
  -- else
  -- put field region into gstate
  -- answer "gstate=" & gstate with "OK"
  -- end if
end findstate
on Newcity
  global gstate, gcity, gzip
  ask "Which state is " & gcity & " in?"
  put it into gstate
  Newzip true
end Newcity
on Findzip
  global gstate, gcity, gzip
  find gstate in field region
  if gcity is in field locations then
    setzipcode
  else
    get name of card
    put it into firstid
    put false into foundit
    put false into allover
    repeat until allover
      find gstate in field region
      put (gcity is in field locations) into foundit
      get name of card
      put (foundit or (it = firstid)) into allover
    end repeat
    if foundit then
      setzipcode
    else
      Newzip true
    end if
  end if
end Findzip
on Newzip createcard
  global gstate, gcity, gzip
  ask "What is the Zip Code for " & gcity & ", " & gstate & "?"
  put it into gzip
  if createcard then
    domenu new card
  end if
  put gzip into field "zip code"
  put gstate into field region
  put gcity into field locations
end Newzip
on setzipcode
  global gstate, gcity, gzip
  if "," is in field "zip code" then
    ask "Please select from multiple zipcodes" with field "zip code"
    put it into gzip
    if it is in field "zip code" then
    else
      put "," & it after field "zip code"
    end if
  else
    if field "zip code" is empty then
      Newzip false
    else
      ask "Is " & field "zip code" & " the correct zip code?" with field "zip code"
      put it into gzip
      if it = field "zip code" then
      else
        put "," & it after field "zip code"
      end if
    end if
  end if
end setzipcode